home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / mdcombo / mainform.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  1.2 KB  |  53 lines
  1. unit Mainform;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls, ExtCtrls, Mddbcomb,
  8.   wwdblook, Wwtable, Grids, DBGrids;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     DataDemo: TDatabase;
  13.     TableProjects: TTable;
  14.     DataProjects: TDataSource;
  15.     DBNavigator1: TDBNavigator;
  16.     DBEdit1: TDBEdit;
  17.     Label1: TLabel;
  18.     TableCompanies: TTable;
  19.     DataCompanies: TDataSource;
  20.     TableManager: TTable;
  21.     mdDBLookupCombo1: TmdDBLookupCombo;
  22.     mdDBLookupCombo2: TmdDBLookupCombo;
  23.     DataManagers: TDataSource;
  24.     Label2: TLabel;
  25.     Label3: TLabel;
  26.     Button1: TButton;
  27.     mdDBLookupList1: TmdDBLookupList;
  28.     TableManagers2: TTable;
  29.     DataManagers2: TDataSource;
  30.     Label4: TLabel;
  31.     procedure Button1Click(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   Form1: TForm1;
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44.  
  45. procedure TForm1.Button1Click(Sender: TObject);
  46. begin
  47.   mdDBLookupCombo2.ReadOnly:=not mdDBLookupCombo2.ReadOnly;
  48.   if mdDBLookupCombo2.ReadOnly then Button1.Caption:='Edit'
  49.                                else Button1.Caption:='ReadOnly';
  50. end;
  51.  
  52. end.
  53.